T: TJoinTopolLines

T=Create(TJoinTopolLines,JTL)
T.Input=ObjectModel.DATA.Layers.LIN_PARSLU
//T.RefLines=ObjectModel.DATA.Layers.LIN_ZAK
T.IgnorePresnost='false'
T.JoinRefLines='false'
T.DoIt()
T.Free()